﻿
Imports System.IO

Public Class onelineXmlControl
    Inherits xmlcontrol

    Public Sub New(Optional ByVal buff As Stream = Nothing, Optional ByVal tag As String = Nothing)
        MyBase.New(buff, tag)
    End Sub

    Protected Overrides Function _tagfinal() As String
        Return tagfinal()
    End Function

    Protected Overrides Function renderEndTag(ByVal compress As Boolean) As Boolean
        Return True
    End Function

    Public Overrides Property text() As Object
        Get
            'assert(False, "should not have text in onelineControl.")
            Return Nothing
        End Get
        Set(ByVal value As Object)
            assert(False, "should not have text in onelineControl.")
        End Set
    End Property

    Public Overrides Sub addchild(ByVal ctrl As xmlcontrol)
        assert(False, "should not have child in onelineControl.")
    End Sub
End Class
